home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / Command Examples / card_4042.txt < prev    next >
Text File  |  1989-11-02  |  2KB  |  98 lines
  1. -- card: 4042 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2810
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=149 top=153 right=175 bottom=341
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Open APPLE and Play
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   -- plays a specific animation file ("apple")
  23.   Studio1 open, "ref", "apple"
  24.   if the result is empty
  25.   then
  26.   studio1 play, ref
  27. else
  28.   put the result
  29. end if
  30. Studio1 close, ref
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (button)
  36. -- low flags: 00
  37. -- high flags: 8003
  38. -- rect: left=149 top=182 right=204 bottom=341
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Open ANY and Play
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   answer "Try the file called " "e &"Counting."& quote
  50.   -- allows you to choose which animation to play
  51.   Studio1 open, "ref", "" -- notice the null string ("")
  52.   if the result is empty
  53.   then
  54.   studio1 play, ref
  55. else
  56.   put the result
  57. end if
  58. Studio1 close, ref
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 3 (button)
  64. -- low flags: 00
  65. -- high flags: 8003
  66. -- rect: left=149 top=211 right=233 bottom=341
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Open PATHNAME and Play
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   -- allows you to specify pathname of animation to play
  78.   Studio1 open, "ref", "Hard Drive:Studio/1Δí:animation:Counting"
  79.   if the result is empty
  80.   then
  81.   studio1 play, ref
  82. else
  83.   put "Put your own pathname into the script!"
  84. end if
  85. Studio1 close, ref
  86. wait 120
  87. hide msg
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part contents for background part 8
  93. ----- text -----
  94. OPEN
  95.  
  96. -- part contents for background part 9
  97. ----- text -----
  98. Opens the specified animation and loads it into memory.